Voorbeeld van de eigenschap TabStop

In het volgende voorbeeld wordt de eigenschap TabStop gebruikt om te besturen of een gebruiker TAB kan indrukken om de focus naar een bepaald besturingselement te verplaatsen. De gebruiker drukt op TAB om de focus te verplaatsen over de besturingselementen in een formulier en klikt daarna op de ToggleButton om TabStop te wijzigen voor CommandButton1. Als TabStop is ingesteld op False, wordt de focus niet met behulp van TAB verplaatst naar CommandButton1.

Als u dit voorbeeld wilt gebruiken, kopieert u de voorbeeldcode naar de declaratiesectie van een formulier. Zorg ervoor dat het formulier de volgende besturingselementen bevat:

• Een CommandButton met de naam CommandButton1.
  
  
• Een ToggleButton met de naam ToggleButton1.
  
  
• Een of twee andere besturingselementen, zoals een OptionButton of ListBox.

Private Sub CommandButton1_Click()
    MsgBox "Clicked CommandButton1."
End Sub

Private Sub ToggleButton1_Click()
    If ToggleButton1 = True Then
        CommandButton1.TabStop = True
        ToggleButton1.Caption = "TabStop On"
    Else
        CommandButton1.TabStop = False
        ToggleButton1.Caption = "TabStop Off"
    End If
End Sub

Private Sub UserForm_Initialize()
    CommandButton1.Caption = "Show Message"
    
    ToggleButton1.Caption = "TabStop On"
    ToggleButton1.Value = True
    ToggleButton1.Width = 90
End Sub